home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 023a / prop_man.zip / SABLABEL.SAB < prev    next >
Text File  |  1991-10-16  |  5KB  |  147 lines
  1. label start
  2. cls
  3. set null " "
  4. set lines 0
  5. display cp.dis
  6. write "SABLABEL.SAB" AT 2,36
  7. write "Company Label Production" at 4,30
  8. set v forth text
  9. set v fifth text
  10. wri " " at 7,1
  11. wri " 1: Steinmetz and Bearson             11:                              "
  12. wri " 2: Steinmetz and Bearson w/phone     12:                              "
  13. wri " 3: Steinmetz Builders                13:                              "
  14. wri " 4: Steinmetz Builders w/phone        14:                              "
  15. wri " 5: R.A. Hetletvedt                   15:                              "
  16. wri " 6: R.A. Hetletvedt w/phone           16:                              "
  17. wri " 7: RailMaster                        17:                              "
  18. wri " 8: Railmaster w/phone                18:                              "
  19. wri " 9:                                   19: Run Test Label(s)            "
  20. wri "10:                                   20: Exit Program                 "
  21. set v wch to 0
  22. set v hm integer
  23. set v hm to 0
  24. fillin wch using "Enter Appropriate Number ->  " at 19,5
  25.   if wch = 19 then ; goto 19 ; endif
  26.   if wch = 20 then ; goto 20 ; endif
  27. fillin hm using "How Many Labels?  " at 21,5
  28. goto .wch
  29. goto start
  30. label 1
  31.   set v first to "  Steinmetz  Bearson  "
  32.   set v secnd to "  9O3 Fairfax Avenue  "
  33.   set v third to "  Altoona, Wisconsin  "
  34.   set v forth to "54720-1166"
  35.   set v fifth to ""
  36. goto print
  37. label 2
  38.   set v first to "  Steinmetz  Bearson  "
  39.   set v secnd to "  9O3 Fairfax Avenue  "
  40.   set v third to "  Altoona, Wisconsin  "
  41.   set v forth to "54720-1166"
  42.   set v fifth to "715   832-78O8"
  43.   goto print
  44. label 3
  45.   set v first to "  Steinmetz Builders  "
  46.   set v secnd to "  9O3 Fairfax Avenue  "
  47.   set v third to "  Altoona, Wisconsin  "
  48.   set v forth to "54720-1166"
  49.   set v fifth to ""
  50.   goto print
  51. label 4
  52.   set v first to "  Steinmetz Builders  "
  53.   set v secnd to "  9O3 Fairfax Avenue  "
  54.   set v third to "  Altoona, Wisconsin  "
  55.   set v forth to "54720-1166"
  56.   set v fifth to "715   832-78O8"
  57.   goto print
  58. label 5
  59.   set v first to " Richard A Hetletvedt "
  60.   set v secnd to " 2123 Bradwood Avenue "
  61.   set v third to "  Altoona, Wisconsin"
  62.   set v forth to "54720-1526"
  63.   set v fifth to ""
  64.   goto print
  65. label 6
  66.   set v first to " Richard A Hetletvedt "
  67.   set v secnd to " 2123 Bradwood Avenue "
  68.   set v third to "  Altoona, Wisconsin  "
  69.   set v forth to "54720-1526"
  70.   set v fifth to "715   839-8668"
  71.   goto print
  72. label 7
  73.   set v first to "RailMaster Photography"
  74.   set v secnd to " 2123 Bradwood Avenue "
  75.   set v third to "  Altoona, Wisconsin  "
  76.   set v forth to "54720-1526"
  77.   set v fifth to ""
  78.   goto print
  79. label 8
  80.   set v first to "RailMaster Photography"
  81.   set v secnd to "920 Oxford Avenue  #06"
  82.   set v third to "Eau Claire,  Wisconsin"
  83.   set v forth to "54720-1526"
  84.   set v fifth to "715   839-8668"
  85.   goto print
  86. label 9
  87.   set v first to "                      "
  88.   set v secnd to "                      "
  89.   set v third to "                      "
  90.   set v forth to "                      "
  91.   set v fifth to "                      "
  92.   goto print
  93. label 10
  94.   set v first to "                      "
  95.   set v secnd to "                      "
  96.   set v third to "                      "
  97.   set v forth to "                      "
  98.   set v fifth to "                      "
  99.   goto print
  100. label 11
  101.   set v first to "                      "
  102.   set v secnd to "                      "
  103.   set v third to "                      "
  104.   set v forth to "                      "
  105.   set v fifth to "                      "
  106.   goto print
  107. label 12
  108.   set v first to "                      "
  109.   set v secnd to "                      "
  110.   set v third to "                      "
  111.   set v forth to "                      "
  112.   set v fifth to "                      "
  113.   goto print
  114. label 13
  115.   set v first to "                      "
  116.   set v secnd to "                      "
  117.   set v third to "                      "
  118.   set v forth to "                      "
  119.   set v fifth to "                      "
  120.   goto print
  121. label 14
  122.   goto start
  123. label 15
  124.   goto start
  125. label 16
  126.   goto start
  127. label 17
  128.   goto start
  129. label 18
  130.   goto start
  131. label 19
  132.   set v first to " XXXXXXXXXXXXXXXXXXXX "
  133.   set v secnd to "XXXXXXXX      XXXXXXXX"
  134.   set v third to "    XXXXXX  XXXXXX    "
  135.   set v forth to "      XXXXXXXXXX      "
  136.   set v fifth to " XXXXXXXXXXXXXXXXXXXX "
  137.   goto print
  138. label 20
  139.   cls
  140.   return
  141. label print
  142.   output printer
  143.     print custlabb where limit = .hm
  144.   output screen
  145.   goto start
  146.  
  147.